Imports System.Data.SqlClient

Public Class frmMonedas
    Dim MONEDAS As New clsMONEDAS
    Dim INICIALES As Integer
    Private Sub frmMonedas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim UNIDADES As New clsMONEDAS
        Dim INICIALES As Integer

        panelSuperior.Style.BackColor1.Color = System.Drawing.Color.FromArgb(34, 35, 38)
        panelSuperior.Style.BackColor2.Color = System.Drawing.Color.FromArgb(34, 35, 38)
        panelSuperior.Style.BorderColor.Color = System.Drawing.Color.FromArgb(50, 52, 56)


        botonesCitra.BackgroundStyle.BackColor = System.Drawing.Color.FromArgb(34, 35, 38)
        botonesCitra.BackgroundStyle.BackColor2 = System.Drawing.Color.FromArgb(34, 35, 38)
        botonesCitra.BackgroundStyle.BorderColor = System.Drawing.Color.FromArgb(34, 35, 38)
        botonesCitra.BackgroundStyle.BorderColor2 = System.Drawing.Color.FromArgb(34, 35, 38)

      
        botonesRegresar.BackgroundStyle.BackColor = System.Drawing.Color.FromArgb(34, 35, 38)
        botonesRegresar.BackgroundStyle.BackColor2 = System.Drawing.Color.FromArgb(34, 35, 38)
        botonesRegresar.BackgroundStyle.BorderColor = System.Drawing.Color.FromArgb(34, 35, 38)
        botonesRegresar.BackgroundStyle.BorderColor2 = System.Drawing.Color.FromArgb(34, 35, 38)

        dgClasificaciones.BackgroundColor = Color.WhiteSmoke

        lblSubtitulo.BackColor = System.Drawing.Color.FromArgb(34, 35, 38)
        lblSubtitulo.ForeColor = System.Drawing.Color.FromArgb(134, 136, 140)

        Panel1.BackColor = System.Drawing.Color.FromArgb(34, 35, 38)
        selBuscar.Visible = False
        selCitra.Visible = False
        selNotificaciones.Visible = False
        selPendientes.Visible = False
        selMas.Visible = False

         selBuscar.BackColor = System.Drawing.Color.FromArgb(132, 189, 0)
        selCitra.BackColor = System.Drawing.Color.FromArgb(132, 189, 0)
        selNotificaciones.BackColor = System.Drawing.Color.FromArgb(132, 189, 0)
        selPendientes.BackColor = System.Drawing.Color.FromArgb(132, 189, 0)
        selMas.BackColor = System.Drawing.Color.FromArgb(132, 189, 0)

        INICIALES = dgClasificaciones.Rows.Count - 1

        CargaMonedas()
    End Sub
    Sub CargaMonedas()
        dgClasificaciones.Rows.Clear()

        Dim strSql As String = "" ' "SELECT ID,DESC_CLASIF FROM CLASIFICACIONES WHERE IDCLASIF=1 ORDER BY DESC_CLASIF"

        strSql = "SELECT NOMBRE,FORMATO FROM MONEDAS"

        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = CitraConnection

        Dim cmdBuscar As New SqlCommand
        cmdBuscar.Connection = cnConn
        cmdBuscar.CommandText = strSql
        Dim rdBuscar As SqlDataReader
        cnConn.Open()
        rdBuscar = cmdBuscar.ExecuteReader



        Do While rdBuscar.Read()
            dgClasificaciones.Rows.Add(rdBuscar("NOMBRE"), rdBuscar("FORMATO"))
        Loop
    End Sub

    Private Sub dgClasificaciones_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgClasificaciones.CellContentClick

    End Sub

    Private Sub dgClasificaciones_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgClasificaciones.CellEndEdit
        If dgClasificaciones.CurrentCell.ColumnIndex = 0 Then
            If Len(dgClasificaciones.CurrentRow.Cells(0).Value) > 0 Then
                Dim NOMBRE As String = UCase(dgClasificaciones.CurrentRow.Cells(0).Value)
                Dim ID As Integer = BuscarIntDatoCitra("SELECT IDMONEDA FROM MONEDAS WHERE UPPER(NOMBRE)='" & NOMBRE & "'")
                If ID > 0 Then
                    MsgBox("La moneda indicada ya existe", MsgBoxStyle.Exclamation, "Aviso")
                    dgClasificaciones.CurrentRow.Cells(0).Value = ""
                Else
                    If Len(dgClasificaciones.CurrentRow.Cells(1).Value) = 0 Then
                        dgClasificaciones.CurrentRow.Cells(1).Value = " "
                    End If
                    'MONEDAS.GUARDAR_MONEDA(dgClasificaciones.CurrentRow.Cells(0).Value, dgClasificaciones.CurrentRow.Cells(1).Value)
                End If
            End If
        ElseIf dgClasificaciones.CurrentCell.ColumnIndex = 1 Then
            Call SetSqlCitra("UPDATE MONEDAS SET FORMATO='" & dgClasificaciones.CurrentRow.Cells(1).Value & "' WHERE NOMBRE='" & dgClasificaciones.CurrentRow.Cells(0).Value & "'")
        End If
    End Sub

   
    Private Sub btnEliminar_Click(sender As System.Object, e As System.EventArgs) Handles btnEliminar.Click
        Dim IDMONEDA As Integer = BuscarIntDatoCitra("SELECT IDMONEDA FROM MONEDAS WHERE UPPER(NOMBRE)='" & UCase(dgClasificaciones.CurrentRow.Cells(0).Value) & "'")
        If IDMONEDA = 1 Then
            MsgBox("No se puede eliminar la moneda PESOS porque es la moneda predeterminada", MsgBoxStyle.Exclamation, "Aviso")
        Else
            Call SetSqlCitra("DELETE FROM MONEDAS WHERE UPPER(NOMBRE)='" & UCase(dgClasificaciones.CurrentRow.Cells(0).Value) & "'")
            dgClasificaciones.Rows.RemoveAt(dgClasificaciones.CurrentRow.Index)
        End If
        
    End Sub

    Private Sub btnTodosRegresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTodosRegresar.Click
        Dim FINALES As Integer = dgClasificaciones.Rows.Count - 1
        If INICIALES <> FINALES Then
            Me.DialogResult = Windows.Forms.DialogResult.OK
        Else
            Me.DialogResult = Windows.Forms.DialogResult.Cancel

        End If
    End Sub
End Class